inherited fListPagar: TfListPagar
  Left = 356
  Top = 229
  Caption = 'Listagem de Contas a Pagar'
  ClientHeight = 414
  ClientWidth = 570
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 570
    inherited SpeedButton1: TSpeedButton
      OnClick = SpeedButton1Click
    end
    inherited SpeedButton2: TSpeedButton
      OnClick = SpeedButton2Click
    end
    inherited SpeedButton4: TSpeedButton
      Left = 499
    end
  end
  inherited Panel2: TPanel
    Top = 361
    Width = 570
    inherited edtLocalizar: TEdit
      Width = 496
    end
  end
  inherited DBGrid1: TRxDBGrid
    Width = 570
    Height = 295
    DataSource = dsFinanceiro
    OnDrawColumnCell = DBGrid1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'NOME'
        Title.Caption = 'Fornecedor'
        Width = 316
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Descri'#231#227'o'
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'DATA'
        Title.Alignment = taCenter
        Title.Caption = 'Emiss'#227'o'
        Width = 98
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Title.Alignment = taRightJustify
        Title.Caption = 'Valor Total'
        Width = 116
        Visible = True
      end>
  end
  object dsFinanceiro: TDataSource
    DataSet = qryPagar
    Left = 168
    Top = 112
  end
  object qryPagar: TIBOQuery
    Params = <
      item
        DataType = ftString
        Name = 'TIPO'
        ParamType = ptInput
      end>
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    RecordCountAccurate = True
    SQL.Strings = (
      'select * from consulta_financeiro(:TIPO)')
    FieldOptions = []
    Left = 288
    Top = 136
    object qryPagarNOME: TStringField
      FieldName = 'NOME'
      Size = 100
    end
    object qryPagarCODIGO: TIntegerField
      FieldName = 'CODIGO'
    end
    object qryPagarDATA: TDateField
      FieldName = 'DATA'
    end
    object qryPagarSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 1
    end
    object qryPagarVALOR: TBCDField
      FieldName = 'VALOR'
      DisplayFormat = '##,###,#0.00'
      Size = 2
    end
    object qryPagarDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
    end
  end
end
